home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / util / cli / VersCheckV2.lha / VersCheckV2 / VersCheckInstallScript < prev   
Encoding:
Text File  |  1999-12-20  |  32.4 KB  |  1,177 lines
  1. ; $VER: VersCheckInstallScript V 2.6 (20.12.1999) multi language version
  2. ; Installer script to install/update VersCheck v2 final version
  3. ; written by Michaela Prüß
  4. ; Note(s):
  5. ; - This script includes a special feature for use by InstallerNG
  6. ; - Last settings will stored and reloaded at next installation
  7. ; - Testet with Installer V44 (OS3.5) and InstallerNG 1.4
  8. ; ----------------------------------------------------------------------------
  9. ; languages (the number is the used language number inside this script)
  10. ; ----------------------------------------------------------------------------
  11. ;  #  translation exists for install  catalog  guide  goodies   other-text
  12. ;
  13. ;  0  english -default-        YES      YES     YES     YES
  14. ;  1  german                   YES      YES     YES     YES
  15. ;  2  français                 YES      YES     YES     YES
  16. ;  3  polski                   YES      YES     YES
  17. ;  4  norsk                             YES
  18. ;  5  svenska                           YES
  19. ;  6  magyar                            YES
  20. ;  7  czech                             YES
  21. ;  8  suomi                    YES      YES     YES     YES      YES
  22. ;  8  russian                           YES             YES
  23. ;
  24. ; ----------------------------------------------------------------------------
  25. ; init var's and set text vars (english) as default, other languages later
  26. ; ----------------------------------------------------------------------------
  27.  
  28. (complete 0)
  29. (user 0)
  30. (set @app-name "VersCheck")
  31. (set #default_language 0)
  32. (set #txt_release "VersCheck v2.19 (15.12.1999)\nFinal V2 release!\n\n")
  33.  
  34.  
  35. ;== output and help ENGLISH ==================================================
  36.  
  37. (set @abort-button "Abort")
  38.  
  39. (set #ask_true "Yes")
  40. (set #ask_false "No")
  41.  
  42. (set #err_oldkick "Need KickStart 2.0 or higher")
  43.  
  44. (set #mes_copyfile "Copy file...")
  45.  
  46. (set #mes_copyinfo "Copy icon...")
  47.  
  48. (set #txt_ask_prgcpu
  49.   (cat "\nInstall VersCheck on harddisk."
  50.        "\n\nPlease choose your CPU type:"
  51. ))
  52.  
  53. (set #hlp_ask_prgcpu
  54.   (cat "\nVersCheck will be installed in a later choosen"
  55.        "\ndrawer."
  56.        "\nFirst set the cpu-version that you want to be"
  57.        "\ninstalled!"
  58.        "\n\nMichaela Prüß, 21.09.1999\n"
  59. ))
  60.  
  61. (set #txt_ask_libcpu
  62.   (cat "\nInstall gateway.library on harddisk."
  63.        "\n\nPlease choose your CPU type:"
  64. ))
  65.  
  66. (set #txt_dir_docs
  67.   (cat "Path for the document's.\n"
  68.        "A drawer 'VersCheckGuide' will be added there!"
  69. ))
  70.  
  71. (set #hlp_dir_docs
  72.   (cat "Drawer for the documentation.\n"
  73.        "Only the guide for same language\n"
  74.        "as the installed catalog file\n"
  75.        "will be installed!"
  76. ))
  77.  
  78. (set #txt_ask_scripts
  79.   (cat "Install CheckGuide comparelists?"
  80.        "\nA drawer 'scripts' will be added there!\n"
  81. ))
  82.  
  83. (set #hlp_ask_scripts
  84.   (cat "\nDo you want to install the comparelists from"
  85.        "\nthe CheckGuides?\n"
  86.        "\nThe drawer will be added in same location as"
  87.        "\nthe VersCheck program."
  88. ))
  89.  
  90. (set #txt_ask_nversbef "Install a patched version command?")
  91.  
  92. (set #hlp_ask_nversbef "See Goodies/ReadMe_version for info's!")
  93.  
  94. (set #txt_ask_env "Install environment?")
  95.  
  96. (set #hlp_ask_env
  97.   (cat "Install Env-Variables!"
  98.        "\nIf not, defaults will be used!\n"
  99. ))
  100.  
  101. (set #txt_ask_addon
  102.   (cat "Install the system compare script?"
  103.        "\nIncluding two RT-Requester-programs!\n"
  104. ))
  105.  
  106. (set #hlp_ask_addon
  107.   (cat "This will install:"
  108.        "\nScript: Check_your_system"
  109.        "\n  Icon: Check_your_system.info"
  110.        "\n  Tool: RTFileReq"
  111.        "\n  Tool: RTSimpleReq\n"
  112. ))
  113.  
  114. (set #choice_cpu-0 "68000")
  115. (set #choice_cpu-1 "68010")
  116. (set #choice_cpu-2 "68020 / 68881")
  117. (set #choice_cpu-3 "68030 / 68882")
  118. (set #choice_cpu-4 "68040 / FPU 040")
  119. (set #choice_cpu-5 "68060 / FPU 060")
  120. (set #choice_cpu-6 "PowerPC with PowerUp")
  121. (set #choice_cpu-7 "PowerPC with Warp-OS")
  122.  
  123. (set #txt_ask_lang
  124.   (cat "\nWitch Language do you want to install?"
  125.        "\nBuild in is english:"
  126. ))
  127.  
  128. (set #hlp_ask_lang
  129.   (cat "\nChoose the language do you want for install!"
  130.        "\nRead the Guide carefully!\n"
  131. ))
  132.  
  133. (set #choice_lang-0 "English (build in)")
  134. (set #choice_lang-1 "German")
  135. (set #choice_lang-2 "France")
  136. (set #choice_lang-3 "Polski")
  137. (set #choice_lang-4 "Norsk   (english doc's)")
  138. (set #choice_lang-5 "Svenska (english doc's)")
  139. (set #choice_lang-6 "Magyar  (english doc's)")
  140. (set #choice_lang-7 "Czech   (english doc's)")
  141. (set #choice_lang-8 "Suomi")
  142. (set #choice_lang-9 "Russian")
  143.  
  144. (set #txt_dir_prog
  145.   (cat "Select path for the programfile"
  146.        "\nNo drawer will be added!"
  147. ))
  148.  
  149. (set #hlp_dir_prog
  150.   (cat "Choose the location for installing"
  151.        "\nVersCheck."
  152. ))
  153.  
  154. (set #txt_finish
  155.   (cat "\nEnd of installation!\n"
  156.        "\nVersCheck is complete installed and ready for"
  157.        "\nusage!\n"
  158. ))
  159.  
  160. (set #txt_welcome
  161.   (cat "\nWelcome to the installation of\nVersCheck!\n\n"
  162.        "\n\n(c) 1998, 1999 by Michaela Prüß"
  163.        "\n\nImportant: Please read the manuals!\n"
  164. ))
  165.  
  166. ;== Ausgaben und Hilfen DEUTSCH ==============================================
  167.  
  168. (if (= @language "deutsch")(
  169.  
  170.   (set @abort-button "Abbrechen")
  171.  
  172.   (set #default_language 1)
  173.  
  174.   (set #ask_true  "Ja")
  175.   (set #ask_false "Nein")
  176.  
  177.   (set #err_oldkick "Mindestens KickStart 2.0 benötigt")
  178.  
  179.   (set #mes_copyfile "Kopiere Datei...")
  180.  
  181.   (set #mes_copyinfo "Kopiere Icon...")
  182.  
  183.   (set #txt_ask_prgcpu
  184.     (cat "\nInstallation von VersCheck auf Festplatte."
  185.          "\n\nBitte CPU-Version wählen:"
  186.   ))
  187.  
  188.   (set #hlp_ask_prgcpu
  189.     (cat "\nVersCheck installiert sich in ein noch zu wählendes"
  190.          "\nVerzeichnis."
  191.          "\nJetzt muß ausgewählt werden, welche CPU unterstützt"
  192.          "\nwerden soll!"
  193.          "\n\nMichaela Prüß, 21.09.1999\n"
  194.   ))
  195.  
  196.   (set #txt_ask_libcpu
  197.     (cat "\nInstallation der gateway.library auf Festplatte."
  198.          "\n\nBitte CPU-Version wählen:"
  199.   ))
  200.  
  201.   (set #txt_dir_docs
  202.     (cat "Wohin soll die Dokumentation\n"
  203.          "kopiert werden? Ein Verzeichnis\n"
  204.          "'VersCheckGuide' wird ggf. angelegt!"
  205.   ))
  206.  
  207.   (set #hlp_dir_docs
  208.     (cat "Verzeichnis für die Dokumentation.\n"
  209.          "Abhängig vom der installierten Sprache\n"
  210.          "wird die passende Dokumentation dazu\n"
  211.          "installiert!"
  212.   ))
  213.  
  214.   (set #txt_ask_scripts
  215.     (cat "CheckGuide-Vergleichslisten installieren?"
  216.          "\nEin Verzeichnis 'scripts' wird ggf. erstellt!\n"
  217.   ))
  218.  
  219.   (set #hlp_ask_scripts
  220.     (cat "\nSollen die Vergleichslisten der CheckGuides"
  221.          "\ninstalliert werden?\n"
  222.          "\nDas Verzeichnis wird dort als Unterverzeichnis"
  223.          "\neingerichtet wo das Programm liegt"
  224.   ))
  225.  
  226.   (set #txt_ask_nversbef
  227.     (cat "Soll ein gepatchter Version-Befehl installiert"
  228.          "\nwerden?\n"
  229.   ))
  230.  
  231.   (set #hlp_ask_nversbef "Bitte Goodies/ReadMe_version lesen!")
  232.  
  233.   (set #txt_ask_env "Environment installieren?")
  234.  
  235.   (set #hlp_ask_env
  236.     (cat "Installiert Env-Variablen!"
  237.          "\nFall nicht werden Standards benutzt!\n"
  238.   ))
  239.  
  240.   (set #txt_ask_addon
  241.     (cat "Soll das System-Vergleichsscript installiert werden?"
  242.          "\nWird zusammen mit zwei RT-Requester-Programmen"
  243.          "\ninstalliert.\n"
  244.   ))
  245.  
  246.   (set #hlp_ask_addon
  247.     (cat "Installiert werden:"
  248.          "\nScript: Check_your_system"
  249.          "\n  Icon: Check_your_system.info"
  250.          "\n  Tool: RTFileReq"
  251.          "\n  Tool: RTSimpleReq\n"
  252.   ))
  253.  
  254.   (set #choice_cpu-0 "68000")
  255.   (set #choice_cpu-1 "68010")
  256.   (set #choice_cpu-2 "68020 / 68881")
  257.   (set #choice_cpu-3 "68030 / 68882")
  258.   (set #choice_cpu-4 "68040 / FPU 040")
  259.   (set #choice_cpu-5 "68060 / FPU 060")
  260.   (set #choice_cpu-6 "PowerPC unter PowerUp")
  261.   (set #choice_cpu-7 "PowerPC unter Warp-OS")
  262.  
  263.   (set #txt_ask_lang
  264.     (cat "\nWelche Sprache soll installiert werden?"
  265.          "\nEnglisch ist eingebaut:"
  266.   ))
  267.  
  268.   (set #hlp_ask_lang
  269.     (cat "\nAuswahl der Sprache die installiert werden soll"
  270.          "\nBitte Guide beachten!\n"
  271.   ))
  272.  
  273.   (set #choice_lang-0 "Englisch    (eingebaut)")
  274.   (set #choice_lang-1 "Deutsch")
  275.   (set #choice_lang-2 "Französisch")
  276.   (set #choice_lang-3 "Polnisch")
  277.   (set #choice_lang-4 "Norwegisch  (englische Doku)")
  278.   (set #choice_lang-5 "Schwedisch  (englische Doku)")
  279.   (set #choice_lang-6 "Ungarisch   (englische Doku)")
  280.   (set #choice_lang-7 "Tschechisch (englische Doku)")
  281.   (set #choice_lang-8 "Finnisch")
  282.   (set #choice_lang-9 "Russisch")
  283.  
  284.   (set #txt_dir_prog
  285.     (cat "Wohin soll das Programm installiert werden?"
  286.          "\nEs wird KEIN Verzeichnis angelegt!"
  287.   ))
  288.  
  289.   (set #hlp_dir_prog
  290.     (cat "Bitte auswählen, wohin VersCheck installiert"
  291.          "\nwerden soll."
  292.   ))
  293.  
  294.   (set #txt_finish
  295.     (cat "\nInstallation beendet!\n"
  296.          "\nVersCheck ist jetzt vollständig installiert und"
  297.          "\nkann benutzt werden!\n"
  298.   ))
  299.  
  300.   (set #txt_welcome
  301.     (cat "\nWillkommen zur Installation von\nVersCheck!\n\n"
  302.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  303.          "\n\nBitte unbedingt die Anleitungen lesen!\n"
  304. ))))
  305.  
  306. ;== output and help FRENCH ===================================================
  307.  
  308. (if (= @language "français")(
  309.  
  310.   (set #default_language 2)
  311.  
  312.   (set @abort-button "Interrompre")
  313.  
  314.   (set #ask_true "Oui")
  315.   (set #ask_false "Non")
  316.  
  317.   (set #err_oldkick "Nécessite le KickStart 2.0 ou supérieur")
  318.  
  319.   (set #mes_copyfile "Copie les fichiers...")
  320.  
  321.   (set #mes_copyinfo "Copie les icônes...")
  322.  
  323.   (set #txt_ask_prgcpu
  324.     (cat "\nInstalle « VersCheck » sur votre disque dur."
  325.            "\n\nChoisissez le type de CPU :"
  326.   ))
  327.  
  328.   (set #hlp_ask_prgcpu
  329.     (cat "\nVersCheck sera installé dans un répertoire"
  330.          "\nqui sera choisi plus tard."
  331.          "\nSélectionnez d'abord la version CPU"
  332.          "\nque vous voulez installer !"
  333.          "\n\nMichaela Prüß, 21.09.1999\n"
  334.   ))
  335.  
  336.   (set #txt_ask_libcpu
  337.     (cat "\nInstalle gateway.library sur votre disque dur."
  338.          "\n\nChoisissez le type de CPU :"
  339.   ))
  340.  
  341.   (set #txt_dir_docs
  342.     (cat "Chemin d'accès à la documentation.\n"
  343.          "Un répertoire « VersCheckGuide » sera créé ici !"
  344.   ))
  345.  
  346.   (set #hlp_dir_docs
  347.     (cat "Répertoire pour la documentation.\n"
  348.          "Seul le guide du même langage\n"
  349.          "que le catalogue choisi sera installé !"
  350.   ))
  351.  
  352.   (set #txt_ask_scripts
  353.     (cat "Installer CheckGuide et sa « comparelist » ?"
  354.          "\nUn répertoire « scripts » sera ajouté ici !\n"
  355.   ))
  356.  
  357.   (set #hlp_ask_scripts
  358.     (cat "\nVoulez-vous installer la liste de comparaison"
  359.          "\nà partir de CheckGuides ?\n"
  360.          "\nLe répertoire sera créé au même endroit que"
  361.          "\nle programme VersCheck."
  362.   ))
  363.  
  364.   (set #txt_ask_nversbef "Installer la version « patchée » de la commande version ?")
  365.  
  366.   (set #hlp_ask_nversbef "Voir Goodies/ReadMe_version pour plus d'infos !")
  367.  
  368.   (set #txt_ask_env "Installer l'environment ?")
  369.  
  370.   (set #hlp_ask_env
  371.     (cat "Installe « Env-Variables » !"
  372.          "\nSi non, les options par défaut seront utilisées !\n"
  373.   ))
  374.  
  375.   (set #txt_ask_addon
  376.     (cat "Installer le script de comparaison du système ?"
  377.          "\nCeci inclus deux programmes « RT-Requester » !\n"
  378.   ))
  379.  
  380.   (set #hlp_ask_addon
  381.     (cat "Ceci installera :\n"
  382.          "\nScript : Check_your_system"
  383.          "\n  Icon : Check_your_system.info"
  384.          "\n  Tool : RTFileReq"
  385.          "\n  Tool : RTSimpleReq\n"
  386.   ))
  387.  
  388.   (set #choice_cpu-0 "68000")
  389.   (set #choice_cpu-1 "68010")
  390.   (set #choice_cpu-2 "68020 / 68881")
  391.   (set #choice_cpu-3 "68030 / 68882")
  392.   (set #choice_cpu-4 "68040 / FPU 040")
  393.   (set #choice_cpu-5 "68060 / FPU 060")
  394.   (set #choice_cpu-6 "PowerPC avec PowerUp")
  395.   (set #choice_cpu-7 "PowerPC avec Warp-OS")
  396.  
  397.   (set #txt_ask_lang
  398.     (cat "\nQuel langage souhaitez-vous installer ?"
  399.          "\n(L'anglais est intégré au programme) :"
  400.   ))
  401.  
  402.   (set #hlp_ask_lang
  403.     (cat "\nChoisissez le langage que vous souhaitez installer !"
  404.          "\nLire le guide avec attention !\n"
  405.   ))
  406.  
  407.   (set #choice_lang-0 "Anglais   (en interne)")
  408.   (set #choice_lang-1 "Allemand")
  409.   (set #choice_lang-2 "Français")
  410.   (set #choice_lang-3 "Polonais")
  411.   (set #choice_lang-4 "Norvégien (doc en anglais)")
  412.   (set #choice_lang-5 "Suédois   (doc en anglais)")
  413.   (set #choice_lang-6 "Malgache  (doc en anglais)")
  414.   (set #choice_lang-7 "Tchèque   (doc en anglais)")
  415.   (set #choice_lang-8 "Suomi")
  416.   (set #choice_lang-9 "Russian")
  417.  
  418.   (set #txt_dir_prog
  419.     (cat "Choisissez le chemin d'accès au programme."
  420.          "\nAucun répertoire ne sera créé !"
  421.   ))
  422.  
  423.   (set #hlp_dir_prog
  424.     (cat "Choisissez le répertoire où installer"
  425.          "\n« VersCheck »."
  426.   ))
  427.  
  428.   (set #txt_finish
  429.     (cat "\nFin de la procédure d'installation !\n"
  430.          "\n« VersCheck » est entièrement installé"
  431.          "\net prêt à être utilisé !\n"
  432.   ))
  433.  
  434.   (set #txt_welcome
  435.     (cat "\nBienvenue dans l'utilitaire d'installation de\n« VersCheck » !\n\n"
  436.          "\n\n(c) 1998, 1999 par Michaela Prüß"
  437.          "\n\nImportant : Veuillez lire la documentation !\n"
  438. ))))
  439.  
  440. ;== output and help POLSKI ===================================================
  441.  
  442. (if (= @language "polski")(
  443.  
  444.   (set @abort-button "Przerwij")
  445.  
  446.   (set #default_language 3)
  447.  
  448.   (set #ask_true "Tak")
  449.   (set #ask_false "Nie")
  450.  
  451.   (set #err_oldkick "Potrzebujë KickStartu w wersji minimum 2.0.")
  452.  
  453.   (set #mes_copyfile "Kopiowanie pliku...")
  454.  
  455.   (set #mes_copyinfo "Kopiowanie ikonki...")
  456.  
  457.   (set #txt_ask_prgcpu
  458.     (cat "\nInstalacja programu VersCheck na dysku twardym."
  459.          "\n\nWybierz model procesora:"
  460.   ))
  461.  
  462.   (set #hlp_ask_prgcpu
  463.     (cat "\nVersCheck zostanie zainstalowany we wskazanym"
  464.          "\npóúniej katalogu."
  465.          "\nNajpierw wybierz model procesora, tak aby zainstalowana"
  466.          "\nzostaîa wîaôciwa wersja programu!"
  467.          "\n\nMichaela Prüß, 21.09.1999\n"
  468.   ))
  469.  
  470.   (set #txt_ask_libcpu
  471.     (cat "\nInstalacja programu gateway.library na dysku twardym."
  472.          "\n\nWybierz model procesora:"
  473.   ))
  474.  
  475.   (set #txt_dir_docs
  476.     (cat "Katalog dla dokumentacji.\n"
  477.          "Zostanie tam utworzony katalog 'VersCheckGuide'!"
  478.   ))
  479.  
  480.   (set #hlp_dir_docs
  481.     (cat "Katalog dla dokumentacji.\n"
  482.          "Zainstalowana zostanie tylko\n"
  483.          "dokumentacja w tym samym jëzyku\n"
  484.          "co i katalog lokalizacyjny!"
  485.   ))
  486.  
  487.   (set #txt_ask_scripts
  488.     (cat "Czy mam zainstalowaê listë porównaï CheckGuide?"
  489.          "\nZostanie tam utworzony katalog 'scripts'!\n"
  490.   ))
  491.  
  492.   (set #hlp_ask_scripts
  493.     (cat "\nCzy chcesz, aby dodany zostaî katalog z listâ"
  494.          "\nplików wykorzystywanâ do porównaï?\n"
  495.          "\nKatalog ten znajdzie sië w tym samym"
  496.          "\nmiejscu na twardym dysku co i program."
  497.   ))
  498.  
  499.   (set #txt_ask_nversbef "Czy mam zainstalowaê poprawionâ komendë version?")
  500.  
  501.   (set #hlp_ask_nversbef "Przeczytaj Goodies/ReadMe_version!")
  502.  
  503.   (set #txt_ask_env "Czy mam zainstalowaê konfiguracjë ôrodowiska?")
  504.  
  505.   (set #hlp_ask_env
  506.     (cat "Instalacja zmiennych ôrodowiskowych!"
  507.          "\nW przypadku zaprzeczenia program wykorzysta"
  508.          "\nustawienia standardowe!\n"
  509.   ))
  510.  
  511.   (set #txt_ask_addon
  512.     (cat "Czy mam zainstalowaê skrypty sprawdzajâce system?"
  513.          "\nDotyczy to równieû dwu programów RT!\n"
  514.   ))
  515.  
  516.   (set #hlp_ask_addon
  517.     (cat "Zainstalowane zostanâ:"
  518.          "\n Skrypt: Check_your_system"
  519.          "\n Ikonka: Check_your_system.info"
  520.          "\nProgram: RTFileReq"
  521.          "\nProgram: RTSimpleReq\n"
  522.   ))
  523.  
  524.   (set #choice_cpu-0 "68000")
  525.   (set #choice_cpu-1 "68010")
  526.   (set #choice_cpu-2 "68020 / 68881")
  527.   (set #choice_cpu-3 "68030 / 68882")
  528.   (set #choice_cpu-4 "68040 / FPU 040")
  529.   (set #choice_cpu-5 "68060 / FPU 060")
  530.   (set #choice_cpu-6 "PowerPC z PowerUp")
  531.   (set #choice_cpu-7 "PowerPC z Warp-OS")
  532.  
  533.   (set #txt_ask_lang
  534.     (cat "\nJaki jëzyk chcesz zainstalowaê?"
  535.          "\nAngielski jest wbudowany:"
  536.   ))
  537.  
  538.   (set #hlp_ask_lang
  539.     (cat "\nWybierz jëzyk, który chcesz zainstalowaê!"
  540.          "\nPrzeczytaj dokîadnie dokumentacjë!\n"
  541.   ))
  542.  
  543.   (set #choice_lang-0 "Angielski (wbudowany)")
  544.   (set #choice_lang-1 "Niemiecki")
  545.   (set #choice_lang-2 "France")
  546.   (set #choice_lang-3 "Polski")
  547.   (set #choice_lang-4 "Norweski  (angielska dokumentacja)")
  548.   (set #choice_lang-5 "Szwedzki  (angielska dokumentacja)")
  549.   (set #choice_lang-6 "Wëgierski (angielska dokumentacja)")
  550.   (set #choice_lang-7 "Czech     (angielska dokumentacja)")
  551.   (set #choice_lang-8 "Suomi")
  552.   (set #choice_lang-9 "Russian")
  553.  
  554.   (set #txt_dir_prog
  555.     (cat "Wybierz ôcieûkë dostëpu dla programu."
  556.          "\nNie zostanie tam utworzony katalog!"
  557.   ))
  558.  
  559.   (set #hlp_dir_prog
  560.     (cat "Wskaû miejsce na twardym dysku, w którym"
  561.          "\nzostanie zainstalowany VersCheck."
  562.   ))
  563.  
  564.   (set #txt_finish
  565.     (cat "\nKoniec instalacji!\n"
  566.          "\nVersCheck jest juû gotowy"
  567.          "\ndo uruchomienia!\n"
  568.   ))
  569.  
  570.   (set #txt_welcome
  571.     (cat "\nWitam! Skrypt ten instaluje program\nVersCheck!\n\n"
  572.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  573.          "\n\nWaûne: przeczytaj dokumentacjë!\n"
  574. ))))
  575.  
  576. ;== output and help SUOMI ===================================================
  577.  
  578. (if(= @language "suomi")(
  579.  
  580.   (set #devlang 8)
  581.  
  582.   (set @abort-button "Peru")
  583.  
  584.   (set #ask_true "Kyllä")
  585.   (set #ask_false "Ei")
  586.  
  587.   (set #err_oldkick "Tarvitaan KickStart 2.0 tai uudempi")
  588.  
  589.   (set #mes_copyfile "Kopioin tiedostoa...")
  590.  
  591.   (set #mes_copyinfo "Kopioin kuvaketta...")
  592.  
  593.   (set #txt_ask_prgcp
  594.     (cat "\nAsennetaan VersCheck kiintolevylle."
  595.          "\n\nOle hyvä ja valitse CPU:n tyyppi:"
  596.   ))
  597.  
  598.   (set #hlp_ask_prgcpu
  599.     (cat "\nVersCheck asennetaan myöhemmin valittavaan"
  600.          "\nhakemistoon."
  601.          "\nValitse ensin minkä prosessorin versio VersCheckistä"
  602.          "\nasennetaan!"
  603.          "\n\nMichaela Prüß, 21.09.1999\n"
  604.   ))
  605.  
  606.   (set #txt_ask_libcpu
  607.     (cat "\nAsennan gateway.libraryn kiintolevylle."
  608.          "\n\nOle hyvä ja valitse prosessorisi tyyppi:"
  609.   ))
  610.  
  611.   (set #txt_dir_docs
  612.     (cat "Mihin dokumentointi kopioidaan?\n"
  613.          "Teen hakemiston 'VersCheckGuide' valittuun hakemistoon!"
  614.   ))
  615.  
  616.   (set #hlp_dir_docs
  617.     (cat "Hakemisto dokumentointia varten.\n"
  618.          "Ainoastaan samankielinen guide,\n"
  619.          "kuin asennettu catalog-tiedosto\n"
  620.          "asennetaan!"
  621.   ))
  622.  
  623.   (set #txt_ask_scripts
  624.     (cat "Asennetaanko CheckGuide-vertailulistat?"
  625.          "\nTehdään hakemisto 'scripts'!\n"
  626.   ))
  627.  
  628.   (set #hlp_ask_scripts
  629.     (cat "\nHaluatko asentaa vertailulistat"
  630.          "\nCheckGuide-ohjelmasta?\n"
  631.          "\nHakemisto tehdään samaan paikkaan kuin"
  632.          "\nVersCheck-ohjelma."
  633.   ))
  634.  
  635.   (set #txt_ask_nversbef "Asennetaanko parannettu version-komento?")
  636.  
  637.   (set #hlp_ask_nversbef "Lisätietoja: goodies/version.luemut !")
  638.  
  639.   (set #txt_ask_env "Asennetaanko ympäristömuuttujat?")
  640.  
  641.   (set #hlp_ask_env
  642.     (cat "Asennetaanko Env-muuttujat!"
  643.          "\nJos ei, käytetään oletusarvoja!\n"
  644.   ))
  645.  
  646.   (set #txt_ask_addon
  647.     (cat "Asennetaanko järjestelmänvertailukomentojono?"
  648.          "\nMukaanlukien kaksi RT-Valitsin-ohjelmaa!\n"
  649.   ))
  650.  
  651.   (set #hlp_ask_adddon
  652.     (cat "Tämä asentaa:"
  653.          "\nKomentojono: Check_Your_System_Suomi"
  654.          "\n     Kuvake: Check_Your_System_Suomi.info"
  655.          "\n    Ohjelma: RTFileReq"
  656.          "\n    Ohjelma: RTSimpleReq\n"
  657.   ))
  658.  
  659.   (set #choice_cpu-0 "68000")
  660.   (set #choice_cpu-1 "68010")
  661.   (set #choice_cpu-2 "68020 / 68881")
  662.   (set #choice_cpu-3 "68030 / 68882")
  663.   (set #choice_cpu-4 "68040 / FPU 040")
  664.   (set #choice_cpu-5 "68060 / FPU 060")
  665.   (set #choice_cpu-6 "PowerPC + PowerUp")
  666.   (set #choice_cpu-7 "PowerPC + Warp-OS")
  667.  
  668.   (set #txt_ask_lang
  669.     (cat "\nMinkä kielen haluat asentaa?"
  670.          "\nSisäänrakennettuna englanti:"
  671.   ))
  672.  
  673.   (set #hlp_ask_lang
  674.     (cat "\nValitse kieli, jonka haluat asentaa!"
  675.          "\nLue Guide huolellisesti!\n"
  676.   ))
  677.  
  678.   (set #choice_lang-0 "English (build in)")
  679.   (set #choice_lang-1 "German")
  680.   (set #choice_lang-2 "France")
  681.   (set #choice_lang-3 "Polski")
  682.   (set #choice_lang-4 "Norsk   (english doc's)")
  683.   (set #choice_lang-5 "Svenska (english doc's)")
  684.   (set #choice_lang-6 "Magyar  (english doc's)")
  685.   (set #choice_lang-7 "Czech   (english doc's)")
  686.   (set #choice_lang-8 "Suomi")
  687.   (set #choice_lang-9 "Russian")
  688.  
  689.   (set #txt_dir_prog
  690.     (cat "Valitse hakemisto, johon ohjelma asennetaan"
  691.          "\nHakemistoa ei tehdä!"
  692.   ))
  693.  
  694.   (set #hlp_dir_prog
  695.   (cat "Valitse sijainti VersCheckin"
  696.        "\nasennusta varten."
  697.   ))
  698.  
  699.   (set #txt_finish
  700.     (cat "\nAsennus päättyy!\n"
  701.          "\nVersCheck on täysin asennettu ja valmis"
  702.          "\nkäyttöön!\n"
  703.   ))
  704.  
  705.   (set #txt_welcome
  706.     (cat "\nTervetuloa asentamaan \nVersCheckiä!\n\n"
  707.          "\n\n(c) 1998, 1999 by Michaela Prüß"
  708.          "\n\nTärkeää: Ole hyvä ja lue manuaalit!\n"
  709. ))))
  710.  
  711.  
  712. ;-----------------------------------------------------------------------------
  713. ; procedure: AskForLib (ask for second cpu type on ppc systems)
  714. ;-----------------------------------------------------------------------------
  715.  
  716. (procedure P_AskForLib
  717.   (set #inst_cpu_libs
  718.     (askchoice
  719.       (default #cpu)
  720.       (prompt  #txt_ask_libcpu)
  721.       (help    #hlp_ask_prgcpu)
  722.       (choices #choice_cpu-0
  723.                #choice_cpu-1
  724.                #choice_cpu-2
  725.                #choice_cpu-3
  726.                #choice_cpu-4
  727.                #choice_cpu-5
  728. ))))
  729.  
  730. ;=============================================================================
  731. ; HERE THE WORK BEGIN                       *** Check system, set defaults ***
  732. ;=============================================================================
  733. (user 2)
  734.  
  735. (onerror ((if (> @ioerr 0)(message (cat "\n INSTALLER ERROR: " @ioerr "\n\n")))))
  736. (complete 1)
  737.  
  738. (if (< (/ (getversion) 65536) 37)((abort #err_oldkick)))
  739. (complete 2)
  740.  
  741. (set #txt_newwelcome (cat #txt_release #txt_welcome))
  742. (message #txt_newwelcome)
  743. (complete 5)
  744.  
  745. (set #cpu 0)
  746. (if (patmatch "68010" (database "cpu"))((set #cpu 1)))
  747. (if (patmatch "68020" (database "cpu"))((set #cpu 2)))
  748. (if (patmatch "68030" (database "cpu"))((set #cpu 3)))
  749. (if (patmatch "68040" (database "cpu"))((set #cpu 4)))
  750. (if (patmatch "68060" (database "cpu"))((set #cpu 5)))
  751.  
  752. (set #testlib (tackon "libs:" "PowerPC.library"))
  753. (if (= (exists #testlib) 0)(
  754.   (set #testlib (tackon "libs:" "ppc.library"))
  755.   (if (= (exists #testlib) 0)(
  756.     (set #prgcpu #cpu)
  757.   )(
  758.     (set #prgcpu 6)))
  759. )(
  760.   (set #prgcpu 7)
  761. ))
  762. (complete 7)
  763.  
  764. (user 0)
  765.  
  766. (set #stortest (tackon "env:" "VCheck/VersDir"))
  767. (if (= (exists #stortest) 0)(
  768.   (set #stored_dir_prog "c:")
  769. )(
  770.   (set #stored_dir_prog (getenv "VCheck/VersDir"))
  771. ))
  772. (set #stortest (tackon "env:" "VCheck/VersDoc"))
  773. (if (= (exists #stortest) 0)(
  774.   (set #stored_dir_docs "help:")
  775. )(
  776.   (set #stored_dir_docs (getenv "VCheck/VersDoc"))
  777. ))
  778. (set #stortest (tackon "env:" "VCheck/VersIM1"))
  779. (if (= (exists #stortest) 0)(
  780.   (set #stored_set_scripts 0)
  781. )(
  782.   (set #stored_set_scripts (getenv "VCheck/VersIM1"))
  783. ))
  784. (set #stortest (tackon "env:" "VCheck/VersIM2"))
  785. (if (= (exists #stortest) 0)(
  786.   (set #stored_set_env 0)
  787. )(
  788.   (set #stored_set_env (getenv "VCheck/VersIM2"))
  789. ))
  790. (set #stortest (tackon "env:" "VCheck/VersIM3"))
  791. (if (= (exists #stortest) 0)(
  792.   (set #stored_set_nversbef 0)
  793. )(
  794.   (set #stored_set_nversbef (getenv "VCheck/VersIM3"))
  795. ))
  796. (set #stortest (tackon "env:" "VCheck/VersIM4"))
  797. (if (= (exists #stortest) 0)(
  798.   (set #stored_set_addon 0)
  799. )(
  800.   (set #stored_set_addon (getenv "VCheck/VersIM4"))
  801. ))
  802.  
  803. ;=============================================================================
  804. ; HERE THE INPUT BEGIN / USER ACTION                *** All need questions ***
  805. ;=============================================================================
  806.  
  807. (user 2)
  808. (complete 10)
  809. (set #inst_language
  810.   (askchoice
  811.     (default #default_language)
  812.     (prompt  #txt_ask_lang)
  813.     (help    #hlp_ask_lang)
  814.     (choices #choice_lang-0
  815.              #choice_lang-1
  816.              #choice_lang-2
  817.              #choice_lang-3
  818.              #choice_lang-4
  819.              #choice_lang-5
  820.              #choice_lang-6
  821.              #choice_lang-7
  822.              #choice_lang-8
  823.              #choice_lang-9
  824. )))
  825. (set #inst_cpu_prog
  826.   (askchoice
  827.     (default #prgcpu)
  828.     (prompt  #txt_ask_prgcpu)
  829.     (help    #hlp_ask_prgcpu)
  830.     (choices #choice_cpu-0
  831.              #choice_cpu-1
  832.              #choice_cpu-2
  833.              #choice_cpu-3
  834.              #choice_cpu-4
  835.              #choice_cpu-5
  836.              #choice_cpu-6
  837.              #choice_cpu-7
  838. )))
  839. (set #inst_cpu_libs #inst_cpu_prog)
  840. (if (= #inst_cpu_prog 0)((set #progname (cat "VersCheck"))))
  841. (if (= #inst_cpu_prog 1)((set #progname (cat "VersCheck.010"))))
  842. (if (= #inst_cpu_prog 2)((set #progname (cat "VersCheck.020"))))
  843. (if (= #inst_cpu_prog 3)((set #progname (cat "VersCheck.030"))))
  844. (if (= #inst_cpu_prog 4)((set #progname (cat "VersCheck.040"))))
  845. (if (= #inst_cpu_prog 5)((set #progname (cat "VersCheck.060"))))
  846. (if (= #inst_cpu_prog 6)(
  847.   (set #progname (cat "VersCheck.elf"))
  848.   (P_AskForLib)
  849. ))
  850. (if (= #inst_cpu_prog 7)(
  851.   (set #progname (cat "VersCheck.wos"))
  852.   (P_AskForLib)
  853. ))
  854. (if (= @installer-ng-version 0)(
  855.   (set #inst_dir_prog
  856.     (askdir
  857.       (prompt  #txt_dir_prog)
  858.       (help    #hlp_dir_prog)
  859.       (default #stored_dir_prog)
  860.       (disk)
  861.   ))
  862.   (set #inst_dir_docs
  863.     (askdir
  864.       (prompt  #txt_dir_docs)
  865.       (help    #hlp_dir_docs)
  866.       (default #stored_dir_docs)
  867.       (disk)
  868.   ))
  869. )(
  870.   (set #inst_dir_prog
  871.     (askdir
  872.       (prompt  (cat (cat #txt_dir_prog "\n\ndefault: »")(cat #stored_dir_prog "«")))
  873.       (help    #hlp_dir_prog)
  874.       (default #stored_dir_prog)
  875.       (disk)
  876.   ))
  877.   (set #inst_dir_docs
  878.     (askdir
  879.       (prompt  (cat (cat #txt_dir_docs "\n\ndefault: »")(cat #stored_dir_docs "«")))
  880.       (help    #hlp_dir_docs)
  881.       (default #stored_dir_docs)
  882.       (disk)
  883. ))))
  884. (set #inst_choice_scripts
  885.   (askchoice
  886.     (default #stored_choice_scripts)
  887.     (prompt  #txt_ask_scripts)
  888.     (help    #hlp_ask_scripts)
  889.     (choices #ask_true
  890.              #ask_false
  891. )))
  892. (set #inst_choice_env
  893.   (askchoice
  894.     (default #stored_choice_env)
  895.     (prompt  #txt_ask_env)
  896.     (help    #hlp_ask_env)
  897.     (choices #ask_true
  898.              #ask_false
  899. )))
  900. (set #inst_choice_nversbef
  901.   (askchoice
  902.     (default #stored_choice_nversbef)
  903.     (prompt  #txt_ask_nversbef)
  904.     (help    #hlp_ask_nversbef)
  905.     (choices #ask_true
  906.              #ask_false
  907. )))
  908. (set #inst_choice_addon
  909.   (askchoice
  910.     (default #stored_choice_addon)
  911.     (prompt  #txt_ask_addon)
  912.     (help    #hlp_ask_addon)
  913.     (choices #ask_true
  914.              #ask_false
  915. )))
  916.  
  917. ;=============================================================================
  918. ; STORE SETTINGS FOR NEXT TIME                            *** store config ***
  919. ;=============================================================================
  920.  
  921. (run (cat "SetEnv VCheck/VersDir " #inst_dir_prog))
  922. (run (cat "SetEnv VCheck/VersDoc " #inst_dir_docs))
  923. (run (cat "SetEnv VCheck/VersIM1 " #inst_choice_scripts))
  924. (run (cat "SetEnv VCheck/VersIM2 " #inst_choice_env))
  925. (run (cat "SetEnv VCheck/VersIM3 " #inst_choice_nversbef))
  926. (run (cat "SetEnv VCheck/VersIM4 " #inst_choice_addon))
  927. (run "Copy all ENV:VCheck ENVARC:VCheck")
  928.  
  929. ;=============================================================================
  930. ; SET NAMES & DIRS FOR COPY -for CPU and LANGUAGE-       *** last settings ***
  931. ;=============================================================================
  932.  
  933. (user 1)
  934. (complete 20)
  935.  
  936. (set #catalogdir "catalogs/english")
  937. (set #aguidefile "VersCheck_english.Guide")
  938. (set #scriptname "Check_Your_System")
  939. (set #afdfile    "AFD-COPYRIGHT")
  940. (set #verreadme  "ReadMe_version")
  941.  
  942. (if (= #inst_language 1)(
  943.   (set #catalogdir "catalogs/deutsch")
  944.   (set #aguidefile "VersCheck_deutsch.Guide")
  945.   (set #scriptname "Check_Your_System_deutsch")
  946.   (set #afdfile    "AFD-COPYRIGHT_deutsch")
  947. ))
  948. (if (= #inst_language 2)(
  949.   (set #catalogdir "catalogs/français")
  950.   (set #aguidefile "VersCheck_français.Guide")
  951.   (set #scriptname "Check_Your_System_france")
  952.   (set #afdfile    "AFD-COPYRIGHT_français")
  953. ))
  954. (if (= #inst_language 3)(
  955.   (set #catalogdir "catalogs/polski")
  956.   (set #aguidefile "VersCheck_polski.Guide")
  957.   (set #afdfile    "AFD-COPYRIGHT_polski")
  958. ))
  959. (if (= #inst_language 4)(
  960.   (set #catalogdir "catalogs/norsk")
  961. ))
  962. (if (= #inst_language 5)(
  963.   (set #catalogdir "catalogs/svenska")
  964. ))
  965. (if (= #inst_language 6)(
  966.   (set #catalogdir "catalogs/magyar")
  967. ))
  968. (if (= #inst_language 7)(
  969.   (set #catalogdir "catalogs/czech")
  970. ))
  971. (if (= #inst_language 8)(
  972.   (set #catalogdir "catalogs/suomi")
  973.   (set #aguidefile "VersCheck_suomi.Guide")
  974.   (set #scriptname "Check_Your_System_suomi")
  975.   (set #afdfile    "AFD-COPYRIGHT_suomi")
  976.   (set #verreadme  "Luemut_version")
  977. ))
  978. (if (= #inst_language 9)(
  979.   (set #catalogdir "catalogs/russian")
  980.   (set #scriptname "Check_Your_System_russian")
  981. ))
  982. (set #libsname (tackon "Libs" "gateway.library.000"))
  983. (if (= #inst_cpu_libs 1)((set #libsname (tackon "Libs" "gateway.library.010"))))
  984. (if (= #inst_cpu_libs 2)((set #libsname (tackon "Libs" "gateway.library.020"))))
  985. (if (= #inst_cpu_libs 3)((set #libsname (tackon "Libs" "gateway.library.030"))))
  986. (if (= #inst_cpu_libs 4)((set #libsname (tackon "Libs" "gateway.library.040"))))
  987. (if (= #inst_cpu_libs 5)((set #libsname (tackon "Libs" "gateway.library.060"))))
  988.  
  989. ;=============================================================================
  990. ; START ALL NEEDED COPY                                 *** Now installing ***
  991. ;=============================================================================
  992.  
  993. (complete 30)
  994. (copylib
  995.   (prompt  #mes_copyfile)
  996.   (dest    "Libs:")
  997.   (source  #libsname)
  998.   (newname "gateway.library")
  999. )
  1000. (user 2)
  1001. (set #n 0)
  1002. (while
  1003.   (set #workfile (select #n
  1004.     "68020.library"
  1005.     "68030.library"
  1006.     "68040.library"
  1007.     "68060.library"
  1008.     "680x0.library"
  1009.     "mmu.library"
  1010.     "reqtools.library"
  1011.     ""
  1012.   ))
  1013.   (copylib
  1014.     (prompt  #mes_copyfile)
  1015.     (dest    "Libs:")
  1016.     (source  (tackon "Libs" #workfile))
  1017.   )
  1018.   (set #n (+ #n 1))
  1019. )
  1020. (user 0)
  1021. (copyfiles
  1022.   (prompt  #mes_copyfile)
  1023.   (dest    "Libs:MMU")
  1024.   (source  "Libs/MMU/ScanMMUPort")
  1025. )
  1026. (complete 40)
  1027. (copyfiles
  1028.   (prompt  #mes_copyfile)
  1029.   (dest    #inst_dir_prog)
  1030.   (source  #progname)
  1031.   (newname "VersCheck")
  1032.   (infos)
  1033. )
  1034. (copyfiles
  1035.   (prompt #mes_copyinfo)
  1036.   (dest   #inst_dir_prog)
  1037.   (source "VersCheck.info")
  1038. )
  1039. (copyfiles 
  1040.   (prompt #mes_copyfile)
  1041.   (dest   (tackon "Locale:" #catalogdir))
  1042.   (source (tackon "locale" (tackon #catalogdir "VersCheck.catalog")))
  1043. )
  1044. (complete 50)
  1045. (copyfiles
  1046.   (prompt  #mes_copyfile)
  1047.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1048.   (source  (tackon "Doku" #aguidefile))
  1049.   (newname "VersCheck.Guide")
  1050.   (infos)
  1051. )
  1052. (copyfiles
  1053.   (prompt  #mes_copyfile)
  1054.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1055.   (source  (tackon "Doku" (cat #aguidefile ".info")))
  1056.   (newname "VersCheck.Guide.info")
  1057.   (infos)
  1058. )
  1059. (complete 60)
  1060. (copyfiles
  1061.   (prompt  #mes_copyfile)
  1062.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1063.   (source  (tackon "Doku" #afdfile))
  1064.   (newname "AFD-COPYRIGHT")
  1065.   (infos)
  1066. )
  1067. (copyfiles
  1068.   (prompt  #mes_copyfile)
  1069.   (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1070.   (source  (tackon "Doku" (cat #afdfile ".info")))
  1071.   (newname "AFD-COPRIGHT.info")
  1072.   (infos)
  1073. )
  1074. (complete 70)
  1075. (set #n 0)
  1076. (while
  1077.   (set #workfile (select #n
  1078.     "ReadMe.1st"
  1079.     "Doku/ATO.readme"
  1080.     "Doku/GuideAuthors.readme"
  1081.     "Doku/Translators.readme"
  1082.     "Doku/VersCheck.readme"
  1083.     "Doku/NewInThisVersion"
  1084.     "Doku/History"
  1085.     "Doku/Handler.Guide"
  1086.     "Doku/MUIClasses.Guide"
  1087.     ""
  1088.   ))
  1089.   (copyfiles
  1090.     (prompt  #mes_copyfile)
  1091.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1092.     (source  #workfile)
  1093.   )
  1094.   (copyfiles
  1095.     (prompt  #mes_copyfile)
  1096.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1097.     (source  (cat #workfile ".info"))
  1098.   )
  1099.   (set #n (+ #n 1))
  1100. )
  1101. (copyfiles 
  1102.   (prompt  #mes_copyfile)
  1103.   (dest    (tackon #inst_dir_docs "VersCheckGuide/CatSource"))
  1104.   (source  "locale/CatSource")
  1105.   (all)
  1106. )
  1107. (if (= #inst_choice_scripts 0)(
  1108.   (copyfiles
  1109.     (prompt  #mes_copyfile)
  1110.     (dest    (tackon #inst_dir_prog "scripts"))
  1111.     (source  "scripts")
  1112.     (pattern "#?")
  1113. )))
  1114. (complete 90)
  1115. (if (= #inst_choice_env 0)(
  1116.   (copyfiles
  1117.     (prompt  #mes_copyfile)
  1118.     (dest   "ENVARC:VCheck")
  1119.     (source "ENV-ARCHIVE/VCheck")
  1120.     (all)
  1121.   )
  1122.   (copyfiles
  1123.     (prompt  #mes_copyfile)
  1124.     (dest   "ENV:VCheck")
  1125.     (source "ENV-ARCHIVE/VCheck")
  1126.     (all)
  1127. )))
  1128. (if (= #inst_choice_nversbef 0)(
  1129.   (copyfiles
  1130.     (prompt  #mes_copyfile)
  1131.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1132.     (source  (tackon "goodies" #verreadme))
  1133.   )
  1134.   (copyfiles
  1135.     (prompt  #mes_copyfile)
  1136.     (dest    (tackon #inst_dir_docs "VersCheckGuide"))
  1137.     (source  (tackon "goodies" (cat #verreadme ".info")))
  1138.   )
  1139.   (copylib
  1140.     (prompt  #mes_copyfile)
  1141.     (dest    #inst_dir_prog)
  1142.     (source  "goodies/Version")
  1143. )))
  1144. (if (= #inst_choice_addon 0)(
  1145.   (copyfiles
  1146.     (prompt  #mes_copyfile)
  1147.     (dest    #inst_dir_prog)
  1148.     (source  "goodies/RTFileReq")
  1149.   )
  1150.   (copyfiles
  1151.     (prompt  #mes_copyfile)
  1152.     (dest    #inst_dir_prog)
  1153.     (source "goodies/RTSimpleReq")
  1154.   )
  1155.   (copyfiles
  1156.     (prompt  #mes_copyfile)
  1157.     (dest    #inst_dir_prog)
  1158.     (source  (tackon "goodies" #scriptname))
  1159.     (newname "Check_Your_System")
  1160.   )
  1161.   (copyfiles
  1162.     (prompt  #mes_copyfile)
  1163.     (dest    #inst_dir_prog)
  1164.     (source  (tackon "goodies" (cat #scriptname ".info")))
  1165.     (newname "Check_Your_System.info")
  1166. )))
  1167.  
  1168. ;=============================================================================
  1169. ; SAY GOODBYE TO THE USER                                      *** the end ***
  1170. ;=============================================================================
  1171.  
  1172. (complete 100)
  1173. (set #txt_newfinish (cat #txt_release #txt_finish))
  1174. (message #txt_newfinish)
  1175. (exit (quiet))
  1176. (welcome)
  1177.